inherited FPesquisaCRChequePre: TFPesquisaCRChequePre
  Left = 225
  Top = 153
  Caption = 'Pesquisa Cheque Pr'#233
  ClientHeight = 332
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    inherited BtnLimpar: TBitBtn
      OnClick = BtnLimparClick
    end
    inherited BtnImprimir: TBitBtn
      OnClick = BtnImprimirClick
    end
  end
  inherited Panel1: TPanel
    Height = 291
    object Label12: TLabel [0]
      Left = 6
      Top = 1
      Width = 55
      Height = 13
      Caption = 'Documento'
    end
    object Label2: TLabel [1]
      Left = 83
      Top = 1
      Width = 32
      Height = 13
      Caption = 'Cliente'
    end
    object Label1: TLabel [2]
      Left = 6
      Top = 41
      Width = 52
      Height = 13
      Caption = 'N'#186' Cheque'
    end
    object Label3: TLabel [3]
      Left = 83
      Top = 41
      Width = 40
      Height = 13
      Caption = 'Portador'
    end
    object Label6: TLabel [4]
      Left = 95
      Top = 99
      Width = 6
      Height = 13
      Caption = 'a'
    end
    object Label9: TLabel [5]
      Left = 6
      Top = 82
      Width = 85
      Height = 13
      Caption = 'Data Lan'#231'amento'
    end
    object Label7: TLabel [6]
      Left = 219
      Top = 81
      Width = 82
      Height = 13
      Caption = 'Data Vencimento'
    end
    object Label8: TLabel [7]
      Left = 308
      Top = 98
      Width = 6
      Height = 13
      Caption = 'a'
    end
    object Label5: TLabel [8]
      Left = 6
      Top = 121
      Width = 42
      Height = 13
      Caption = 'Situa'#231#227'o'
    end
    object Label4: TLabel [9]
      Left = 243
      Top = 41
      Width = 46
      Height = 13
      Caption = 'Vendedor'
    end
    inherited DBGrid1: TDBGrid
      Top = 165
    end
    inherited Panel3: TPanel
      Top = 270
    end
    object EDocumento: TEdit
      Left = 6
      Top = 15
      Width = 71
      Height = 21
      MaxLength = 10
      TabOrder = 2
    end
    object DBLCBCliente: TDBLookupComboBox
      Left = 83
      Top = 15
      Width = 320
      Height = 21
      KeyField = 'CLI_CODIGO'
      ListField = 'CLI_RAZAO'
      ListSource = DSCliente
      TabOrder = 3
      OnKeyDown = DBLCBClienteKeyDown
    end
    object ENumeroCheque: TEdit
      Left = 6
      Top = 56
      Width = 50
      Height = 21
      TabOrder = 4
      OnKeyPress = ENumeroChequeKeyPress
    end
    object DBLCBPortador: TDBLookupComboBox
      Left = 83
      Top = 56
      Width = 156
      Height = 21
      KeyField = 'PORT_CODIGO'
      ListField = 'PORT_DESCRICAO'
      ListSource = DSPortador
      TabOrder = 5
      OnKeyDown = DBLCBClienteKeyDown
    end
    object DEDataTituloIni: TDateEdit
      Left = 6
      Top = 95
      Width = 88
      Height = 21
      NumGlyphs = 2
      TabOrder = 6
    end
    object DEDataTituloFim: TDateEdit
      Left = 103
      Top = 95
      Width = 88
      Height = 21
      NumGlyphs = 2
      TabOrder = 7
    end
    object DEDataVencimentoIni: TDateEdit
      Left = 219
      Top = 95
      Width = 88
      Height = 21
      NumGlyphs = 2
      TabOrder = 8
    end
    object DEDataVencimentoFim: TDateEdit
      Left = 316
      Top = 95
      Width = 88
      Height = 21
      NumGlyphs = 2
      TabOrder = 9
    end
    object CBSituacao: TComboBox
      Left = 6
      Top = 135
      Width = 89
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 10
      Text = 'Todos'
      Items.Strings = (
        'Todos'
        'Em aberto'
        'Pagos')
    end
    object RGOrdenacao: TRadioGroup
      Left = 221
      Top = 124
      Width = 185
      Height = 34
      Caption = 'Ordena'#231#227'o :'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Vencimento'
        'Lan'#231'amento')
      TabOrder = 11
    end
    object DBLCBVendedor: TDBLookupComboBox
      Left = 243
      Top = 55
      Width = 160
      Height = 21
      KeyField = 'VEND_CODIGO'
      ListField = 'VEND_NOME'
      ListSource = DSVendedor
      TabOrder = 12
      OnKeyDown = DBLCBClienteKeyDown
    end
  end
  inherited QPesquisa: TQuery
    SQL.Strings = (
      
        'Select CR_CODIGO as NumeroLancamento,CR_DATATITULO as DataLancam' +
        'ento,CR_DOCUMENTO as NumeroDocumento,'
      
        '       PORTADOR.PORT_DESCRICAO as Portador,CLIENTE.CLI_RAZAO as ' +
        'Cliente,CR_BANCO as Banco,'
      
        '       CR_AGENCIA as Agencia,CR_CHEQUE as Cheque,CR_VALOR as Val' +
        'or,LANCAMENTO.LANC_DATA as DataBaixa,'
      
        '       CR_EMITENTE as Emitente,CR_DATAVENCIMENTO as Vencimento,V' +
        'endedor.Vend_Nome as Vendedor'
      ''
      'From CONTASRECEBER'
      
        '     Inner join CLIENTE on CONTASRECEBER.CR_CLIENTE = CLIENTE.CL' +
        'I_CODIGO'
      
        '     Left join Vendedor on CLIENTE.CLI_Vendedor = Vendedor.Vend_' +
        'Codigo'
      
        '     Inner join PORTADOR on CONTASRECEBER.CR_PORTADOR = PORTADOR' +
        '.PORT_CODIGO'
      
        '     Inner join TIPODOCUMENTO on (CONTASRECEBER.CR_TIPODOCUMENTO' +
        ' = TIPODOCUMENTO.TIPO_DOC_CODIGO)      And (TIPODOCUMENTO.TIPO_D' +
        'OC_CHEQUE = 1)'
      
        '     Left join LANCAMENTO on (CONTASRECEBER.CR_CODIGO = LANCAMEN' +
        'TO.LANC_TITULO) and (Lanc_CPCR = '#39'R'#39')'
      ''
      ''
      ''
      ''
      ''
      
        'Group By CR_DATAVENCIMENTO,CR_DOCUMENTO,CR_CODIGO,CR_DATATITULO,' +
        'PORTADOR.PORT_DESCRICAO,CLIENTE.CLI_RAZAO,'
      
        '         CR_BANCO,CR_AGENCIA,CR_CHEQUE,CR_VALOR,CR_EMITENTE,LANC' +
        'AMENTO.LANC_DATA,Vendedor.Vend_Nome'
      ''
      'Order By CR_DATAVENCIMENTO,CR_DATATITULO'
      '')
    Left = 216
    Top = 281
  end
  inherited DSPesquisa: TDataSource
    Left = 256
    Top = 281
  end
  object DSCliente: TDataSource
    DataSet = DMGestao.QCliente
    Left = 192
    Top = 48
  end
  object DSPortador: TDataSource
    DataSet = DMFinanceiro.Qportador
    Left = 176
    Top = 88
  end
  object DSVendedor: TDataSource
    DataSet = DMGestao.QVendedor
    Left = 344
    Top = 88
  end
end
